Product Sales Comparison Sample Code

FOCEXEC Style Sheet
--* File RSALES1.FEX

DEFINE FILE GGORDER
SALE_AMOUNT/D12.2 = QUANTITY * UNIT_PRICE;
YEAR/YY = ORDER_DATE;
SALES95/D12.2 = IF YEAR IS 1995
THEN SALE_AMOUNT
ELSE 0;
SALES96/D12.2 = IF YEAR IS 1996
THEN SALE_AMOUNT
ELSE 0;
END

TABLE FILE GGORDER
ON TABLE SET PAGE-NUM OFF
SUM SALES95 AS '1995,Sales' AND SALES96 AS '1996,Sales' BY PRODUCT_DESCRIPTION
AS 'Product Description'
HEADING CENTER
"Gotham Grinds"
"Product Sales Comparison"
"1995 vs 1996"
" "
ON TABLE NOTOTAL
WHERE (ORDER_DATE GE 'JAN 1 1995')
AND (ORDER_DATE LE 'DEC 31 1996');
ON TABLE HOLD AS RSALES1A FORMAT HTMTABLE
ON TABLE SET STYLE RSALES10
END
-HTMLFORM hsales1
UNITS=IN, PAGESIZE='Letter', LEFTMARGIN=0.250000, RIGHTMARGIN=0.250000,
TOPMARGIN=0.250000, BOTTOMMARGIN=0.250000, SQUEEZE=ON,
ORIENTATION=PORTRAIT, $
DEFMACRO=SALESDIFF, MACTYPE=RULE, WHEN=N3 LT N2, $
TYPE=REPORT, FOCEXEC=NONE, FONT=ARIAL, SIZE=10, COLOR=BLACK, BACKCOLOR=NONE,
STYLE=NORMAL, GRID=OFF,$
TYPE=DATA, COLUMN=N1, COLOR=RED, STYLE=BOLD, MACRO=SALESDIFF, $
TYPE=DATA, COLUMN=N2, COLOR=RED, STYLE=BOLD, MACRO=SALESDIFF, $
TYPE=DATA, COLUMN=N3, COLOR=RED, STYLE=BOLD, MACRO=SALESDIFF, $
TYPE=TITLE, COLUMN=N1, STYLE=BOLD, $
TYPE=TITLE, COLUMN=N2, STYLE=BOLD, $
TYPE=TITLE, COLUMN=N3, STYLE=BOLD, $
TYPE=HEADING, LINE=1, OBJECT=TEXT, ITEM=1, STYLE=BOLD, $
TYPE=HEADING, LINE=2, OBJECT=TEXT, ITEM=1, STYLE=BOLD, $
TYPE=HEADING, LINE=3, OBJECT=TEXT, ITEM=1, STYLE=BOLD, $